// ************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL     : http://ekoindri.com/radphp/research/soap_sis_entry_siswa_uangpembangunan.php?wsdl
// >Import : http://ekoindri.com/radphp/research/soap_sis_entry_siswa_uangpembangunan.php?wsdl>0
// Encoding : ISO-8859-1
// Version  : 1.0
// (1/1/2012 1:24:28 PM - - $Rev: 28374 $)
// ************************************************************************ //
unit soap_sis_entry_siswa_uangpembangunan;

interface

uses
  InvokeRegistry,
  SOAPHTTPClient,
  Types,
  XSBuiltIns;

type

  // ************************************************************************ //
  // The following types, referred to in the WSDL document are not being represented
  // in this file. They are either aliases[@] of other types represented or were referred
  // to but never[!] declared in the document. The types from the latter category
  // typically map to predefined/known XML or Embarcadero types; however, they could also
  // indicate incorrect WSDL documents that failed to declare or import a schema type.
  // ************************************************************************ //
  // !:string          - "http://www.w3.org/2001/XMLSchema"[Gbl]
  // !:integer         - "http://www.w3.org/2001/XMLSchema"[Gbl]
  // !:dateTime        - "http://www.w3.org/2001/XMLSchema"[Gbl]
  // !:float           - "http://www.w3.org/2001/XMLSchema"[Gbl]
  TInfoServer = class; { "http://localhost"[GblCplx] }
  TInfoSiswa = class; { "http://localhost"[GblCplx] }
  TDataUangPembangunanInputRow = class; { "http://localhost"[GblCplx] }

  // ************************************************************************ //
  // XML       : TInfoServer, global, <complexType>
  // Namespace : http://localhost
  // ************************************************************************ //
  TInfoServer = class(TRemotable)
  private
    Fserver_host:     string;
    Fserver_database: string;
    Fserver_username: string;
    Fserver_password: string;
  published
    property server_host:     string read Fserver_host write Fserver_host;
    property server_database: string read Fserver_database write Fserver_database;
    property server_username: string read Fserver_username write Fserver_username;
    property server_password: string read Fserver_password write Fserver_password;
  end;

  // ************************************************************************ //
  // XML       : TInfoSiswa, global, <complexType>
  // Namespace : http://localhost
  // ************************************************************************ //
  TInfoSiswa = class(TRemotable)
  private
    FID:                Int64;
    FSISWA_KODE:        string;
    FSISWA_NAMA_AWAL:   string;
    FSISWA_NAMA_TENGAH: string;
    FSISWA_NAMA_AKHIR:  string;
  published
    property ID:                Int64 read FID write FID;
    property SISWA_KODE:        string read FSISWA_KODE write FSISWA_KODE;
    property SISWA_NAMA_AWAL:   string read FSISWA_NAMA_AWAL write FSISWA_NAMA_AWAL;
    property SISWA_NAMA_TENGAH: string read FSISWA_NAMA_TENGAH write FSISWA_NAMA_TENGAH;
    property SISWA_NAMA_AKHIR:  string read FSISWA_NAMA_AKHIR write FSISWA_NAMA_AKHIR;
  end;

  TInfoDaftarSiswa = array of TInfoSiswa; { "http://localhost"[GblCplx] }

  // ************************************************************************ //
  // XML       : TDataUangPembangunanInputRow, global, <complexType>
  // Namespace : http://localhost
  // ************************************************************************ //
  TDataUangPembangunanInputRow = class(TRemotable)
  private
    FID:                         Int64;
    FSISWA_ID:                   Int64;
    FUANGPEMBANGUNAN_TGL:        TXSDateTime;
    FUANGPEMBANGUNAN_NILAI:      Single;
    FUANGPEMBANGUNAN_KETERANGAN: string;
  public
    destructor Destroy; override;
  published
    property ID:                         Int64 read FID write FID;
    property SISWA_ID:                   Int64 read FSISWA_ID write FSISWA_ID;
    property UANGPEMBANGUNAN_TGL:        TXSDateTime read FUANGPEMBANGUNAN_TGL write FUANGPEMBANGUNAN_TGL;
    property UANGPEMBANGUNAN_NILAI:      Single read FUANGPEMBANGUNAN_NILAI write FUANGPEMBANGUNAN_NILAI;
    property UANGPEMBANGUNAN_KETERANGAN: string read FUANGPEMBANGUNAN_KETERANGAN write FUANGPEMBANGUNAN_KETERANGAN;
  end;

  TDataUangPembangunanInput = array of TDataUangPembangunanInputRow; { "http://localhost"[GblCplx] }

  // ************************************************************************ //
  // Namespace : http://localhost
  // soapAction: http://ekoindri.com/radphp/research/soap_sis_entry_siswa_uangpembangunan.php/%operationName%
  // transport : http://schemas.xmlsoap.org/soap/http
  // style     : rpc
  // binding   : SERVICE_ENTRY_SISWA_UANGPEMBANGUNANBinding
  // service   : SERVICE_ENTRY_SISWA_UANGPEMBANGUNAN
  // port      : SERVICE_ENTRY_SISWA_UANGPEMBANGUNANPort
  // URL       : http://ekoindri.com/radphp/research/soap_sis_entry_siswa_uangpembangunan.php
  // ************************************************************************ //
  SERVICE_ENTRY_SISWA_UANGPEMBANGUNANPortType = interface(IInvokable)
    ['{1658322B-C61B-BAB0-C599-1B22693C6A26}']
    function DATA_SISWA(const connection_string: TInfoServer; out siswalist: TInfoDaftarSiswa): string; stdcall;
    function SISWA_SIMPAN_UANGPEMBANGUNAN_DATASET(const connection_string: TInfoServer; const daftaruangpembangunan: TDataUangPembangunanInput): string; stdcall;
  end;

function GetSERVICE_ENTRY_SISWA_UANGPEMBANGUNANPortType(UseWSDL: Boolean = System.False; Addr: string = ''; HTTPRIO: THTTPRIO = nil): SERVICE_ENTRY_SISWA_UANGPEMBANGUNANPortType;

implementation

uses
  SysUtils;

function GetSERVICE_ENTRY_SISWA_UANGPEMBANGUNANPortType(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): SERVICE_ENTRY_SISWA_UANGPEMBANGUNANPortType;
const
  defWSDL = 'http://ekoindri.com/radphp/research/soap_sis_entry_siswa_uangpembangunan.php?wsdl';
  defURL = 'http://ekoindri.com/radphp/research/soap_sis_entry_siswa_uangpembangunan.php';
  defSvc = 'SERVICE_ENTRY_SISWA_UANGPEMBANGUNAN';
  defPrt = 'SERVICE_ENTRY_SISWA_UANGPEMBANGUNANPort';
var
  RIO: THTTPRIO;
begin
Result := nil;
if (Addr = '') then
  begin
  if UseWSDL then
    Addr := defWSDL
  else
    Addr := defURL;
  end;
if HTTPRIO = nil then
  RIO := THTTPRIO.Create(nil)
else
  RIO := HTTPRIO;
try
  Result := (RIO as SERVICE_ENTRY_SISWA_UANGPEMBANGUNANPortType);
  if UseWSDL then
    begin
    RIO.WSDLLocation := Addr;
    RIO.Service      := defSvc;
    RIO.Port         := defPrt;
    end
  else
    RIO.URL := Addr;
finally
  if (Result = nil) and (HTTPRIO = nil) then
    RIO.Free;
end;
end;

destructor TDataUangPembangunanInputRow.Destroy;
begin
SysUtils.FreeAndNil(FUANGPEMBANGUNAN_TGL);
inherited Destroy;
end;

initialization

InvRegistry.RegisterInterface(TypeInfo(SERVICE_ENTRY_SISWA_UANGPEMBANGUNANPortType), 'http://localhost', 'ISO-8859-1');
InvRegistry.RegisterDefaultSOAPAction(TypeInfo(SERVICE_ENTRY_SISWA_UANGPEMBANGUNANPortType), 'http://ekoindri.com/radphp/research/soap_sis_entry_siswa_uangpembangunan.php/%operationName%');
InvRegistry.RegisterReturnParamNames(TypeInfo(SERVICE_ENTRY_SISWA_UANGPEMBANGUNANPortType), 'return;return');
RemClassRegistry.RegisterXSClass(TInfoServer, 'http://localhost', 'TInfoServer');
RemClassRegistry.RegisterXSClass(TInfoSiswa, 'http://localhost', 'TInfoSiswa');
RemClassRegistry.RegisterXSInfo(TypeInfo(TInfoDaftarSiswa), 'http://localhost', 'TInfoDaftarSiswa');
RemClassRegistry.RegisterXSClass(TDataUangPembangunanInputRow, 'http://localhost', 'TDataUangPembangunanInputRow');
RemClassRegistry.RegisterXSInfo(TypeInfo(TDataUangPembangunanInput), 'http://localhost', 'TDataUangPembangunanInput');

end.
